home *** CD-ROM | disk | FTP | other *** search
/ Micom Basic 1995 October / CD [BM9510].bin / basic / bp_kouza / n88basic / list1.bas next >
Encoding:
BASIC Source File  |  1995-08-09  |  2.1 KB  |  51 lines
  1. 100 SCREEN 3                                             'TOWNSé═ 100 SCREEN@ 0
  2. 110 WIDTH 80,25
  3. 120 CONSOLE 0,25,0,1                                'TOWNSé═ 120 CONSOLE 0,25,0
  4. 130 CLS 3                                                    'TOWNSé═ 130 CLS 0
  5. 140 DT=.01
  6. 150 G=9.8
  7. 160 WHILE -1                                                        'û│î└âïü[âv
  8. 170  CLS 3                                                   'TOWNSé═ 170 CLS 0
  9. 180  LINE(0,0)-(639,100),6,B          'TOWNSé═ 180 LINE(0,0)-(639,100),PSET,6,B
  10. 190  RR=0                                                         'ÉUéΦÄqé╠èpôx
  11. 200  ML=200                                                 'ÉUéΦÄqé╠é╨éαé╠Æ╖é│
  12. 210  MM=1                                                 'ÉUéΦÄqé╠é¿éαéΦé╠Ä┐ù╩
  13. 220  TP=0
  14. 230  C=7
  15. 240  GOSUB *PUTFURIKO
  16. 250  LOCATE 0,7
  17. 260  INPUT "Åëè·æ¼ôx";V
  18. 270  F=0
  19. 280  WHILE F=0
  20. 290   GOSUB *MOVEFURIKO
  21. 300   C=0
  22. 310   GOSUB *PUTFURIKO
  23. 320   C=7
  24. 330   RR=NEWRR
  25. 340   GOSUB *PUTFURIKO
  26. 350   GOSUB *PUTGRAPH
  27. 360   IF INKEY$<>"" THEN F=1
  28. 370  WEND
  29. 380 WEND
  30. 390 END
  31. 400 *PUTFURIKO                                          'ëµû╩é╔ÉUéΦÄqé≡ò\Īé╖éΘ
  32. 410 LINE(320,100)-(320+ML*SIN(RR),ML*COS(RR)+100),C 'TOWNSé═ ü`(RR)+100),PSET,C
  33. 420 CIRCLE(320+(ML+30)*SIN(RR),(ML+30)*COS(RR)+100),30,C
  34. 430 RETURN
  35. 440 *MOVEFURIKO
  36. 450 FG=MM*G                                         'é¿éαéΦé╔é⌐é⌐éΘÅdù═é≡ïüé▀éΘ
  37. 460 FG2=-FG*SIN(RR)                             'Äàé╞ÉéÆ╝ò√îⁿé╔é⌐é⌐éΘù═é≡ïüé▀éΘ
  38. 470 A=FG2/MM                                              'ù═é⌐éτë┴æ¼ôxé≡ïüé▀éΘ
  39. 480 V=V+A*DT                                    'æ¼ôxé≡ë┴æ¼ôxé╔ë₧é╢é─ò╧ë╗é│é╣éΘ
  40. 490 NEWRR=RR+V/ML*DT                                    'ê┌ô«ù╩é≡ò╧ë╗èpôxé╔ò╧è╖
  41. 500 RETURN
  42. 510 *PUTGRAPH
  43. 520 VE=1/2*MM*V*V                                               'ë^ô«âGâlâïâMü[
  44. 530 PE=MM*G*(ML-COS(RR)*ML)                                     'ê╩ÆuâGâlâïâMü[
  45. 540 TP=TP+.2
  46. 550 IF TP>638 THEN TP=1:LINE(1,1)-(638,99),0,BF   'TOWNSé═ ü`(638,99),PSET,0,BF
  47. 560 PSET(TP,99-VE*.1),1
  48. 570 PSET(TP,99-PE*.1),4
  49. 580 PSET(TP,99-(VE+PE)*.1),2
  50. 590 RETURN
  51.